home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
quad-2.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
501b
|
20 lines
10 PRINT " ***QUADRATIC EQUATION***"
20 PRINT
30 INPUT "ENTER COEFFICIENT (A)"; A
40 INPUT "ENTER COEFFICIENT (B)"; B
50 INPUT "ENTER COEFFICIENT (C)"; C
55 D = (B^2 - 4*A*C)
56 IF D<0 GOTO 96
60 X1=(-B+(B^2-4*A*C)^.5)/(2*A)
70 X2=(-B-(B^2-4*A*C)^.5)/(2*A)
71 PRINT
72 PRINT " ***ANSWERS***"
73 PRINT
80 PRINT X1 "VALUE OF FIRST ROOT"
90 PRINT X2 "VALUE OF SECOND ROOT"
95 END
96 PRINT
97 PRINT " ***SOLUTION***"
98 PRINT
100 PRINT "ROOT IS NOT REAL"